home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 68.7z / BS1 part 68 / Art Expression v2.04 (1996)(Soft-Logik Publishing)(Disk 1 of 3)[HD].7z / Art Expression v2.04 (1996)(Soft-Logik Publishing)(Disk 1 of 3)[HD].adf / ArtExpressionDict2.04 < prev    next >
Text File  |  1993-03-10  |  7KB  |  254 lines
  1. %%BeginProcSet:ArtExpressionDict2.04
  2. %%
  3. /ArtExpressionDict 220 dict def
  4. ArtExpressionDict begin
  5.  
  6. /bf{bind def}bind def
  7. /lf{load def}bf
  8. /ed{exch def}bf
  9. /3p{3 1 roll}bf
  10.  
  11.  
  12. %/NewCodes 256 array def
  13. %AmigaCodes aload length 2 idiv {NewEncoding 3p put}repeat
  14.  
  15. %/RE { %key fontname on stack
  16. %{
  17. %   findfont dup length dict begin
  18. %   {
  19. %      1 index /FID ne
  20. %      {def}{pop pop}ifelse
  21. %   }forall
  22. %   /Encoding NewCodes def
  23. %   /customfont currentdict end
  24. %   definefont def
  25. %}bf
  26.  
  27. %/AmigaCodes [
  28. %0 /.notdef
  29. %1 /.notdef 2 /.notdef 3 /.notdef 4 /.notdef
  30. %5 /.notdef 6 /.notdef 7 /.notdef 8 /.notdef
  31. %9 /.notdef 10 /.notdef 11 /.notdef 12 /.notdef
  32. %13 /.notdef 14 /.notdef 15 /.notdef 16 /.notdef
  33. %17 /.notdef 18 /.notdef 19 /.notdef 20 /.notdef
  34. %21 /.notdef 22 /.notdef 23 /.notdef 24 /.notdef
  35. %25 /.notdef 26 /.notdef 27 /.notdef 28 /.notdef
  36. %29 /.notdef 30 /.notdef 31 /.notdef 
  37. %32 /space 33 /exclam 34 /quotedbl 35 /numbersign 
  38. %36 /dollar 37 /percent 38 /ampersand 39 /quoteright 
  39. %40 /parenleft 41 /parenright 42 /asterisk 43 /plus 
  40. %44 /comma 45 /hyphen 46 /period 47 /slash 
  41. %48 /zero 49 /one 50 /two 51 /three 
  42. %52 /four 53 /five 54 /six 55 /seven 
  43. %56 /eight 57 /nine 58 /colon 59 /semicolon 
  44. %60 /less 61 /equal 62 /greater 63 /question 
  45. %64 /at 65 /A 66 /B 67 /C 
  46. %68 /D 69 /E 70 /F 71 /G 
  47. %72 /H 73 /I 74 /J 75 /K 
  48. %76 /L 77 /M 78 /N 79 /O 
  49. %80 /P 81 /Q 82 /R 83 /S 
  50. %84 /T 85 /U 86 /V 87 /W 
  51. %88 /X 89 /Y 90 /Z 91 /bracketleft 
  52. %92 /backslash 93 /bracketright 94 /asciicircum 95 /underscore 
  53. %96 /grave 97 /a 98 /b 99 /c 
  54. %100 /d 101 /e 102 /f 103 /g 
  55. %104 /h 105 /i 106 /j 107 /k 
  56. %108 /l 109 /m 110 /n 111 /o 
  57. %112 /p 113 /q 114 /r 115 /s 
  58. %116 /t 117 /u 118 /v 119 /w 
  59. %120 /x 121 /y 122 /z 123 /braceleft 
  60. %124 /bar 125 /braceright 126 /asciitilde 127 /.notdef 
  61. %128 /.notdef 129 /.notdef 130 /.notdef 131 /.notdef 
  62. %132 /.notdef 133 /.notdef 134 /.notdef 135 /.notdef 
  63. %136 /.notdef 137 /.notdef 138 /.notdef 139 /.notdef
  64. %140 /.notdef 141 /.notdef 142 /.notdef 143 /.notdef 
  65. %144 /.notdef 145 /.notdef 146 /.notdef 147 /.notdef 
  66. %148 /.notdef 149 /.notdef 150 /.notdef 151 /.notdef 
  67. %152 /.notdef 153 /.notdef 154 /.notdef 155 /.notdef 
  68. %156 /.notdef 157 /.notdef 158 /.notdef 159 /.notdef 
  69. %160 /space 161 /exclamdown 162 /cent 163 /sterling 
  70. %164 /currency 165 /yen 166 /bar 167 /section 
  71. %168 /dieresis 169 /copyright 170 /ordfeminine 171 /guillemotleft 
  72. %172 /logicalnot 173 /emdash 174 /registered 175 /macron 
  73. %176 /ring 177 /plusminus 178 /twosuperior 179 /threesuperior 
  74. %180 /acute 181 /mu 182 /paragraph 183 /bullet 
  75. %184 /cedilla 185 /onesuperior 186 /ordmasculine 187 /guillemotright 
  76. %188 /onequarter 189 /onehalf 190 /threequarters 191 /questiondown 
  77. %192 /Agrave 193 /Aacute 194 /Acircumflex 195 /Atilde 
  78. %196 /Adieresis 197 /Aring 198 /AE 199 /Ccedilla 
  79. %200 /Egrave 201 /Eacute 202 /Ecircumflex 203 /Edieresis 
  80. %204 /Igrave 205 /Iacute 206 /Icircumflex 207 /Idieresis 
  81. %208 /Eth 209 /Ntilde 210 /Ograve 211 /Oacute 
  82. %212 /Ocircumflex 213 /Otilde 
  83. %214 /Odieresis 215 /multiply 
  84. %216 /Oslash 217 /Ugrave 218 /Uacute 219 /Ucircumflex 
  85. %220 /Udieresis 221 /Yacute 222 /Thorn 223 /germandbls 
  86. %224 /agrave 225 /aacute 226 /acircumflex 227 /atilde 
  87. %228 /adieresis 229 /aring 
  88. %230 /ae 231 /ccedilla 
  89. %232 /egrave 233 /eacute 234 /ecircumflex 235 /edieresis 
  90. %236 /igrave 237 /iacute 238 /icircumflex 239 /idieresis 
  91. %240 /eth 241 /ntilde 242 /ograve 243 /oacute 
  92. %244 /ocircumflex 245 /otilde 246 /odieresis 247 /divide 
  93. %248 /oslash 249 /ugrave 250 /uacute 251 /ucircumflex 
  94. %252 /udieresis 253 /yacute 254 /thorn 255 /ydieresis 
  95. %]def
  96.  
  97.  
  98.  
  99. /sepcolor 3 def
  100. /PMODE 0 def
  101.  
  102. /setlinecolor { pop pop }def 
  103. /setfillcolor { pop pop }def 
  104. /cvt{curveto}bf
  105. /lnt{lineto}bf
  106. /mvt{moveto}bf
  107. /cp{closepath}bf
  108. /rgb{setrgbcolor}bf
  109.  
  110. % New for Dict1.3
  111. /sj {setlinejoin}bf
  112. /sc {setlinecap}bf
  113. /sw {setlinewidth}bf
  114.  
  115. /definecmykcolor {
  116.  PMODE 0 eq {systemdict /setcmykcolor where not
  117.    {/setcmykcolor
  118.     {1 sub 4 1 roll 3 {3 index add neg dup 0 lt{pop 0}if 3 1 roll}
  119.      repeat setrgbcolor pop} bf}
  120.     {pop}ifelse
  121.   } if
  122.  PMODE 1 eq {
  123.   sepcolor 0 eq {/setcmykcolor {pop pop pop 1 exch sub setgray}bf} if % CYAN
  124.   sepcolor 1 eq {/setcmykcolor {pop pop 1 exch sub setgray pop}bf} if % MAGENTA
  125.   sepcolor 2 eq {/setcmykcolor {pop 1 exch sub setgray pop pop}bf} if % YELLOW
  126.   sepcolor 3 eq {/setcmykcolor {1 exch sub setgray pop pop pop}bf} if % BLACK
  127.  } if
  128.  PMODE 2 eq {systemdict /setcmykcolor known not
  129.    {/setcmykcolor
  130.     {1 sub 4 1 roll 3 {3 index add neg dup 0 lt{pop 0}if 3 1 roll}
  131.      repeat setrgbcolor pop} bf}
  132.   if} if
  133.  
  134. }def
  135.  
  136. /cmyk{setcmykcolor}bf
  137. /slc{setlinecolor}bf
  138. /sfc{setfillcolor}bf
  139. /pcmyk {pop pop pop pop pop} bf
  140.  
  141. /linepatterns[
  142.    []     [1 15]    [2 14]    [4 12] 
  143.    [6 10] [8 8]     [10 6]    [12 4] 
  144.    [14 2] [1 7]     [2 6]     [4 2 1 2] 
  145.    [6 2]  [4 4 1 7] [4 4 2 6] [6 2] 
  146.    [1 3]  [4 4]     []        []
  147. ] def
  148.  
  149.  
  150. % decimal number on stack -> PostScript dash array
  151. /lpt
  152. {/i exch def linepatterns i get 0 setdash
  153. }def
  154.  
  155. /beginobject{gsave translate newpath}bf
  156. /bob{gsave translate newpath}bf
  157. /endobject{grestore}bf
  158. /eob{grestore}bf
  159.  
  160. /begingroup{gsave translate}bf
  161. /bgr{gsave translate}bf
  162.  
  163. /endgroup{grestore}bf
  164. /egr{grestore}bf
  165.  
  166. /beps{ /showpage {} def }bf
  167. /eeps{ }bf
  168.  
  169. /targets {
  170.    gsave translate
  171.      newpath
  172.      4 { 0 0 moveto 2 0 rmoveto 12 0 rlineto 90 rotate 
  173.                .1 setlinewidth stroke}repeat 
  174.      0 0 9 0 360 arc .1 setlinewidth stroke
  175.    grestore     
  176. }bf
  177.  
  178. /regmark { % x y on stack
  179.   gsave translate
  180.   newpath
  181.   10 0 moveto 0 0 10 0 360 arc
  182.   1 setgray fill
  183.   8 0 moveto 0 0 8 0 360 arc
  184.   -10 0 moveto 10 0 lineto 0 -10 moveto 0 10 lineto
  185.   0 setgray stroke
  186.   4 0 moveto 0 0 4 0 360 arc
  187.   fill
  188.   -4 0 moveto 4 0 lineto 0 -4 moveto 0 4 lineto
  189.   1 setgray stroke
  190.   grestore
  191. }bf
  192.  
  193. /grid {/yinc exch def /xinc exch def
  194.    /ph exch def /pw exch def
  195.    gsave
  196.   .5 setgray .1 setlinewidth
  197.    0 xinc pw {/xpos exch def xpos 0 moveto xpos ph lineto}for stroke
  198.    0 yinc ph {/ypos exch def 0 ypos moveto pw ypos lineto}for stroke
  199.    grestore
  200. }def
  201.  
  202. /showborder{ /ph exch def /pw exch def
  203.    gsave 0 0 moveto 0 ph rlineto pw 0 rlineto 0 ph neg rlineto closepath
  204.      .5 setlinewidth stroke
  205.    grestore
  206. }bf
  207.  
  208. /docrop {0 0 moveto 0 -5 rmoveto 0 -30 rlineto 
  209.          0 0 moveto -5 0 rmoveto -30 0 rlineto .1 setlinewidth stroke}def
  210.  
  211. % Changed 1.02
  212. /cropmarks {/t exch def /r exch def /b exch def /l exch def
  213.      gsave l b translate docrop grestore 
  214.      gsave l t translate -90 rotate docrop grestore
  215.      gsave r t translate -180 rotate docrop grestore
  216.      gsave r b translate -270 rotate docrop grestore
  217. }bf
  218.                  
  219. /rect {/y2 exch def /x2 exch def
  220.        /y1 exch def /x1 exch def
  221.        x1 y1 moveto x1 y2 lineto 
  222.        x2 y2 lineto x2 y1 lineto
  223.        closepath
  224. }def
  225. /rrect{/r exch def 
  226.        /y2 exch def /x2 exch def
  227.        /y1 exch def /x1 exch def
  228.        x1 r add y1 moveto
  229.        x1 y1 x1 y1 x1 y1 r add curveto 
  230.        x1 y2 r sub lineto
  231.        x1 y2 x1 y2 x1 r add y2 curveto
  232.        x2 r sub y2 lineto
  233.        x2 y2 x2 y2 x2 y2 r sub curveto
  234.        x2 y1 r add lineto
  235.        x2 y1 x2 y1 x2 r sub y1 curveto
  236.        closepath
  237. }def
  238.  
  239. /inch {72 mul}def
  240. /domanualfeed {statusdict /manualfeed true put }bf
  241. /negative {statusdict /negativeprint known 
  242.              {statusdict /negativeprint true put}
  243.              {{1 exch sub} settransfer}ifelse
  244.           }bf
  245.  
  246. /oshow{true charpath stroke}bf
  247. /ofshow{dup show grestore true charpath stroke}bf
  248. /setpage {10{pop}repeat}bf
  249.  
  250.  
  251. end
  252. %%EndProcSet
  253. %%EndProlog
  254.